home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / AMON_Extension.lha / amon_extension / examples_asc / IntegerSinCos_fx.asc < prev    next >
Text File  |  1995-07-24  |  2KB  |  109 lines
  1. '
  2. 'Program: Draw Circle + Circle Fx
  3. ' Author: Paul Overy 
  4. '   Date: 20/7/95
  5. '
  6. Cls 0
  7. '
  8. For K=0 To 359
  9.    Plot Mul Cos(K,64)+128,Mul Sin(K,64)+128
  10. Next K
  11. '
  12. Wait 30 : Cls 0
  13. '
  14. For MUL=0 To 64
  15.    For K=0 To 359 Step 65-MUL
  16.       Plot Mul Cos(K,MUL)+128,Mul Sin(K,MUL)+128
  17.    Next K
  18. Next MUL
  19. '
  20. Wait 30 : Cls 0
  21. '
  22. For MUL=0 To 64
  23.    For K=0 To 359 Step 65-MUL
  24.       Plot Mul Cos(K,MUL)+128,Mul Sin(80,MUL)+128
  25.    Next K
  26. Next MUL
  27. '
  28. Wait 30 : Cls 0
  29. '
  30. For K=0 To 359
  31.    Plot Mul Cos(K,Rnd(20)+44)+128,Mul Sin(K,Rnd(20)+44)+128
  32. Next K
  33. '
  34. Wait 30 : Cls 0
  35. '
  36. For K=0 To 64
  37.    For LP=0 To 50
  38.       Plot Mul Cos(Rnd(359),K)+128,Mul Sin(Rnd(359),K)+128
  39.    Next LP
  40. Next K
  41. '
  42. Wait 30 : Cls 0
  43. '
  44. X=64*32 : Y=0
  45. For AGAIN=0 To 8
  46.    For LP=0 To 359
  47.       X=X+Y/16
  48.       Y=Y-X/16
  49.       Plot Mul Cos(LP,X/32)+128,Mul Sin(LP,X/32)+128
  50.    Next LP
  51. Next AGAIN
  52. '
  53. Wait 30 : Cls 0
  54. '
  55. X=64*32 : Y=0
  56. For AGAIN=0 To 8
  57.    For LP=0 To 359
  58.       X=X+Y/16
  59.       Y=Y-X/16
  60.       Plot Mul Cos(LP,X/32)+128,Mul Sin(LP,Y/32)+128
  61.    Next LP
  62. Next AGAIN
  63. '
  64. Wait 30 : Cls 0
  65. '
  66. 'I just made this up - I had no idea it would do this!!!!
  67. '
  68. X=64*32 : Y=0
  69. For AGAIN=0 To 10
  70.    For LP=0 To 359
  71.       X=X+Y/16
  72.       Y=Y-X/16
  73.       Plot Mul Cos(LP,X/32)+128,Mul Sin(LP,64)+128
  74.    Next LP
  75. Next AGAIN
  76. '
  77. Wait 30 : Cls 0
  78. '
  79. X=64*32 : Y=0
  80. For AGAIN=0 To 20
  81.    For LP=0 To 359
  82.       X=X+Y/16
  83.       Y=Y-X/16
  84.       Plot Mul Cos(LP,X/32)+128,Mul Sin(LP,Rnd(X/32))+128
  85.    Next LP
  86. Next AGAIN
  87. '
  88. Wait 30 : Cls 0
  89. '
  90. X=359*32 : Y=0
  91. For AGAIN=0 To 600
  92.       X=X+Y/16
  93.       Y=Y-X/16
  94.       Plot Mul Cos(Abs(X/32),64)+128,Mul Sin(Abs(Y/32),64)+128
  95. Next AGAIN
  96. '
  97. Wait 30 : Cls 0
  98. '
  99. X=359*32 : Y=0
  100. MUL=64*32
  101. For AGAIN=0 To 5
  102.    For LP=0 To 359
  103.       Dec MUL
  104.       Plot Mul Cos(LP,MUL/32)+128,Mul Sin(LP,MUL/32)+128
  105.    Next LP
  106. Next AGAIN
  107.  
  108.  
  109.